VB 如何屏蔽这种对话框：<script language=vbscript> msgbox "你好！"</script>

来源：百度知道 编辑：UC知道 时间：2024/05/15 03:43:14
VB 如何屏蔽这种对话框：<script language=vbscript> msgbox "你好！"</script>

在控件里：WebBrowser

如果让这种对话框不弹出来？
如何操作替换？
你S＝这个是替换操作，可是如何进行呢？
能否贴一下代码出来，谢谢！

试过了，网上说的其他办法都不行，还是弹出后自动关闭它最好，尤其是网页上提交成功后的页面，根本就判断不到。。
经过测试，目前只有弹出后自己关闭它。。
Private Sub Timer1_Timer()

iii = iii + 1

If iii >= 0 Then
Dim dlghwnd As Long
Dim buttonhwnd As Long
dlghwnd = FindWindow("#32770", "Microsoft Internet Explorer")
buttonhwnd = GetDlgItem(dlghwnd, 2) '其中的2，用spy++获得
SendMessage buttonhwnd, BM_CLICK, 0&, ByVal 0&
End If

End Sub

webbrowse对象打开网页之前对网页源代码进行处理。可以替换掉这段语句就可以了。
例如替换语法为：

s= replace(s,"msgbox","'msgbox") 's为代码内容。本语句的作用是注释掉所有msgbox 语句。